home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64 / verstecktes dir. (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  792 b   |  31 lines
  1. 1 rem  ****************************
  2. 2 rem  *   verstecktes directory  *
  3. 3 rem  *   geschrieben 1987 von   *
  4. 4 rem  *       raimund genes      *
  5. 5 rem  ****************************
  6. 10 print"[147]            waehlen sie:"
  7. 20 print"     1=directory verstecken"
  8. 30 print"     2=directory sichtbar machen"
  9. 40 print"     3=abbruch"
  10. 50 geta$:ifa$=""then60
  11. 60 ifa$="1"then b=255:t$="verstecken":goto 100
  12. 70 ifa$="2"then b=0:t$="sichtbar machen":goto 100
  13. 80 ifa$="3"then end
  14. 90 goto50
  15. 100 print"[147]      directory ";t$,"[146]"
  16. 110 print"  druecken sie 'j' zum ausfuehren"
  17. 120 print"               'n' zum abbruch"
  18. 130 geta$:ifa$=""then130
  19. 140 ifa$="j"then 170
  20. 150 ifa$="n"then 10
  21. 160 goto130
  22. 170 open15,8,15,"i"
  23. 180 open4,8,4,"#"
  24. 190 print#15,"u1 4 0 18 1"
  25. 200 print#15,"b-p 4 0"
  26. 210 print#4,chr$(b)
  27. 220 print#15,"u2 4 0 18 1
  28. 230 [152]15,"i"
  29. 240 [160]4:[160]15
  30. 250 [153]"       funktion ist ausgefuehrt"
  31.